with Stations_Suite; use Stations_Suite;
with AUnit.Run;
with AUnit.Reporter.Text;

------------------
-- Test_Railway --
------------------

procedure Test_Railway is

   procedure Runner is new AUnit.Run.Test_Runner (Suite);

   Reporter : AUnit.Reporter.Text.Text_Reporter;

begin
   Runner (Reporter);
end Test_Railway;
